R Markdown

Why are National Parks Important?

Coyote Gulch 2021

knitr::include_graphics("C:/Users/nicka/CImages/gulch.jpg")

Yearly Visitors of all Parks since 1980

## Warning: Removed 84 row(s) containing missing values (geom_path).
## Warning: Removed 84 rows containing missing values (geom_point).

Hotels for each Park. This includes on-site hotels and hotels in the nearest city.

cities %>% 
  ggplot(aes(x=NearestCity,y=Hotels,fill=Park))+
  geom_bar(stat = "identity")

Yearly Temperature of Zion’s,Bryce,Capitol Reef

When is the best time to visit Zion’s?

## Warning: Removed 2 rows containing non-finite values (stat_boxplot).

## Warning: Removed 3 rows containing non-finite values (stat_boxplot).

How did Covid-19 affect these parks?

The year before for all parks….

year19 %>%
  mutate(Month = factor(Month,levels = months)) %>% 
  ggplot(aes(x=Month,y=MonthlyVisitor))+
  geom_line(aes(group = 1))+
  ylab("Monthly Visitors")+
  theme(axis.text.x = element_text(angle = 90,size = 5))+
  facet_wrap(~Park)

Yosemite 2019 vs 2020

Zion’s National Park 2019 vs 2020